home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / THINKC / 4_0 / DONALDXC / GETCATAL.C < prev    next >
C/C++ Source or Header  |  1990-05-01  |  3KB  |  110 lines
  1. #include    <MacTypes.h>
  2. #include    <OSUtil.h>
  3. #include    <MemoryMgr.h>
  4. #include    <FileMgr.h>
  5. #include    <ResourceMgr.h>
  6. #include    <pascal.h>
  7. #include    <hfs.h>
  8. #include    <string.h>
  9. #include     "HyperXCmd.h"
  10. #include    "HyperUtils.h"
  11.  
  12. /*** If you read this column    ***/
  13. /*** column on a regular basis    ***/
  14. /*** you may want to add these    ***/
  15. /*** routines to HyperUtils.c    ***/
  16. /***                            ***/
  17. /*** If you don't have Hyper-    ***/
  18. /*** utils.c, you can obtain it    ***/
  19. /*** from MacTutor for a small    ***/
  20. /*** handling charge            ***/
  21.  
  22.  
  23. #define        SYNC    0
  24.  
  25. AppendCharToHandle( theHand, theChar )
  26.     Handle    theHand;
  27.     char    theChar;
  28. /****************************
  29. *
  30. * Given a valid handle, append
  31. * the character passed in to 
  32. * the end of the handle
  33. * 
  34. * This is a useful way to embed
  35. * \r, \t or \0 into a container
  36. * for use by hypercard.
  37. ****************************/
  38. {
  39.     long        hsiz = GetHandleSize( theHand );
  40.     char        *dirP;
  41.  
  42.      SetHandleSize( theHand, hsiz + 1 );
  43.      dirP = *theHand + hsiz;
  44.      *dirP= theChar;
  45. }
  46.  
  47.  
  48.  
  49. GetCatalog( wdref, dirH )
  50.     short        wdref;
  51.     Handle        dirH;
  52. /****************************
  53. * Get a listing of the directory
  54. * passed in.
  55. *
  56. * In:
  57. *     wdref == reference number of the
  58. *             the desired working directory
  59. *
  60. *    dirH == handle to the output container.
  61. *
  62. * Note that we allocate all structures 
  63. * in the heap to minimize the impact
  64. * a high directory valence might have
  65. * on the stack.
  66. ****************************/
  67. {
  68.     OSErr        done    = 0;            /* goes true when done searching    */
  69.     CInfoPBPtr    catPB    = (CInfoPBPtr)NewPtr( sizeof(CInfoPBRec));
  70.     WDPBPtr        wdPB    = (WDPBPtr)NewPtr( sizeof(WDPBRec));
  71.     char        *fname    = (char *)NewPtr( 256L );
  72.  
  73.     DebugStr("\pget cat");
  74.     if( catPB && wdPB && fname ){
  75.         catPB->dirInfo.ioNamePtr     = (StringPtr)fname;
  76.         catPB->dirInfo.ioFDirIndex     = 0;
  77.         catPB->dirInfo.ioVRefNum    = wdref;            
  78.         
  79.         do{
  80.             *(catPB->dirInfo.ioNamePtr) = '\0';
  81.             catPB->dirInfo.ioFDirIndex++;
  82.             catPB->dirInfo.ioDrDirID    = 0; 
  83.             
  84.             if( (done = PBGetCatInfo( catPB, SYNC ) ) == noErr ){
  85.                 pStrToField( fname, '', dirH );
  86.                  if( catPB->dirInfo.ioFlAttrib & 0x010 ){    /*** it's a directory    ***/
  87.                     AppendCharToHandle( dirH, ':' );
  88.                     
  89.                     /*
  90.                     wdPB->ioNamePtr     = NIL; 
  91.                      wdPB->ioWDProcID     = 0;
  92.                     wdPB->ioWDVRefNum    = catPB->dirInfo.ioVRefNum;
  93.                     wdPB->ioWDDirID     = catPB->dirInfo.ioDrDirID; 
  94.                     
  95.                     if( PBOpenWD( wdPB, SYNC) == noErr ){
  96.                         GetCatalog( catPB->dirInfo.ioVRefNum, dirH);
  97.                         PBCloseWD( wdPB, SYNC );
  98.                     }
  99.                     */
  100.                  }
  101.                  AppendCharToHandle( dirH, '\r' );
  102.             }
  103.         }while( !done );
  104.         
  105.         DisposPtr( (Ptr)catPB );
  106.         DisposPtr( (Ptr)wdPB );
  107.         DisposPtr( (Ptr)fname );
  108.     }
  109. }
  110.